1 POKE51201,0:POKE927,0:POKE1023,0:POKE53281,.:POKE53280,.:C$=CHR$(34)
2 IFPS=.THENGOSUB20:PS=1
3 IFJPTHENSYS50140:GOTO7
4 OPEN15,8,15,"I0":CLOSE15                               
7 POKE646,PEEK(53281):PRINT"L[207]"C$"PRE*"C$",8"
8 PRINT"RUN";
10 POKE631,13:POKE632,13:POKE198,2:END
20 D$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
25 PRINT"[147]     [152][172][155]"D$"[152][187]"
30 PRINT"     [161][146] [199]OING TO [204]OADSTAR [205]ENU ... [152][161]"
40 PRINT"[156][163][163][163][163][163][152][188][155]"D$"[146][152][190][156][163][163][163][163][163]";
45 D$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
50 PRINT"[154]"D$:PRINT""D$:PRINT"[158]"D$:PRINT"[129]"D$:PRINT""D$"";:RETURN